3 POKE53280,1:POKE53281,1:POKE646,5:CLR:PRINT"[147]"CHR$(14)CHR$(8)
5 GOSUB60100:GOTO430
9 :
10 REM====PRESS ANY KEY PROMPT=======
11 :
12 X=13:Y=24:W$="[144][208]RESS ANY KEY[145][145][145]":GOSUB66
14 GETA$:IFA$=""THEN14
15 RETURN
63 :
64 REM========PRINT AT=======
65 :
66 POKE 783,PEEK(783)AND254:POKE782,X:POKE781,Y:SYS65520:PRINTW$
67 POKE783,PEEK(783)OR1:RETURN
68 Z9=TI:FORI=1TOZ:NEXT:Z8=TI
69 W$="[197]MPTY [204]OOP":RETURN
72 Z9=TI:FORI=1TOZ:A=Z:NEXT:Z8=TI
73 W$="[193]=[218]       ":RETURN
76 Z9=TI:FORI=1TOZ:A=100:NEXT:Z8=TI
77 W$="[193]=100     ":RETURN
80 Z9=TI:FORI=1TOZ:A=Z/50:NEXT:Z8=TI
81 W$="[193]=[218]/50    ":RETURN
84 Z9=TI:FORI=1TOZ:A=Z*.02:NEXT:Z8=TI
85 W$="[193]=[218]*.02   ":RETURN
88 Z9=TI:FORI=1TOZ:A=Z/.02:NEXT:Z8=TI
89 W$="[193]=[218]/.02   ":RETURN
96 Z9=TI:FORI=1TOZ:A=Z*Z7:NEXT:Z8=TI
97 W$="[193]=[218]*[218]7 (50)":RETURN
100 Z9=TI:FORI=1TOZ:A=Z*Z6:NEXT:Z8=TI
101 W$="[193]=[218]*[218]6 (.02)":RETURN
108 Z9=TI:FORI=1TOZ
109 REM THIS IS A TYPICAL LONG REM          STATEMENT FOR TIMING PURPOSES ONLY
110 NEXT
111 Z8=TI:W$="[210][197][205][160]STATEMENT":RETURN
131 :
132 REM ==== DISKREAD SUBROUTINE ======
133 :
134 L=LEN(F$):REM F$=NAME OF SSFILE
136 B=951:POKEB,L+2:POKEB+L+1,44:POKEB+2+L,80
138 FORI=0TOL-1:POKEB+1+I,ASC(MID$(F$,I+1,1)):NEXT
139 PRINT"[147] ";
140 POKE909,1:REM POKE SPEED HERE
142 SYS828
144 RETURN
346 :
347 REM ====VARIABLE DEMO========
348 :
350 F$="VD":GOSUB134:GOSUB12:CLR:DIMZ9,Z8,I,A
355 PRINT"[147]         [211][201][205][208][204][197] [214][193][210][201][193][194][204][197] [196][197][205][207]"
360 PRINTTAB(24)"[198]IRST"TAB(32)"[211]ECOND"
365 PRINT"    [211]TART OF VARIABLES[129]"TAB(24)PEEK(45)+256*PEEK(46)
370 PRINT"    [197]ND OF VARIABLES[129]"TAB(24)PEEK(47)+256*PEEK(48)-1
375 Z=100:Z7=50:Z6=.02:DEFFNA(X)=Z7*Z6-Z*Z7
380 PRINT:FORK=1TO9
385 ONKGOSUB68,72,76,80,84,88,96,100,108
390 PRINTTAB(6)""W$;TAB(25);"[129]";Z8-Z9
395 NEXT
400 CLR:DIMZ9,Z8,I,A
401 DIM A1,A2,A3,A4,A5,A6,A7,A8,A9,A0,AA,AB,AC,AD,AE,AF,AG,AH,AI,AJ,AK
402 DIMB1,B2,B3,B4,B5,B6,B7,B8,B9,B0,C1,C2,C3,C4,C5,C6,C7,C8,C9,C0,D1,D2,D3,D4
403 DIMD5,D6,D7,D8,D9,D0,E1,E2,E3,E4,E5,E6,E7,E8,E9,E0,F1,F2,F3,F4,F5,F6,F7,F8
404 DIMF9,F0,G1,G2,G3,G4,G5,G6,G7,G8,G9,G0,H1,H2,H3,H4,H5,H6,H7,H8,H9,H0
405 K=1:Z=100:Z7=50:Z6=.02:DEFFNA(X)=Z7*Z6-Z*Z7
408 PRINT"[129]"
410 PRINTTAB(32)PEEK(45)+256*PEEK(46)
411 PRINTTAB(32)PEEK(47)+256*PEEK(48)-1
412 PRINT:FORK=1TO9
414 ONKGOSUB68,72,76,80,84,88,96,100,108
416 PRINTTAB(33)Z8-Z9
418 NEXT
419 PRINT" [206]OTICE THAT WHEN THE VARIABLE [129][218] IS"
420 PRINT" ADDED (IN THE [211]ECOND RUN), THE TIME"
421 PRINT" TO GO THROUGH THE LOOPS IS APPRECIABLY  INCREASED."
422 GOSUB12
424 PRINT"[147]":F$="VC":GOSUB134:GOSUB12
427 :
428 REM ========MENU===================
429 :
430 PRINT"[147]     [193] [196][197][205][207][206][211][212][210][193][212][201][207][206] [207][198] [212][200][197] [211][208][197][197][196] [207][198]
431 [153]"   STR$RIGHT$(null)VAL(null)(null)RIGHT$(null)(null)RIGHT$(null)CHR$ ATN(null)STR$ STR$VALASCRIGHT$(null)RIGHT$(null)CHR$ (null)ATN(null)RIGHT$ATNPEEK(null)VAL(null)"
432 [153][163]12)"CLRBY (null)AURICE MID$ONES"
433 [153]"             (null)LEFT$VALCLOSEASC(null)(null)(null) CLOSE(null)'(null)CLOSECLOSE"
434 [153]"         STOP1. (null)UN (null)ATN(null)RIGHT$ATNPEEK(null)VAL DEMO"
435 [153]"         STOP2. (null)UN ATN(null)(null)ATN(null) DEMO"
436 [153]"         STOP3. (null)EAD METHODOLOGY"
438 [153]"         STOP4. (null)ETURN TO (null)(null)ATNSTR$(null)(null)ATN(null)"
439 [153]"           FOR(null)LEASE CHOOSE AN (null)  "
440 [141]14:[139]A$[179]"1"[176]A$[177]"4"[167][141]14
444 [145] [197](A$)[137]350,500,600,60000
496 :
497 [143] ====ARRAY DEMO======
498 :
500 F$[178]"AD":[141]134:[141]12
501 [153]"LOADSTOP            ATN(null)(null)ATN(null) (null)ATN(null)RIGHT$ATNPEEK(null)VAL STR$VAL(null)(null)"
502 [153][163]20)"#1     #2     #3"
503 [156]:[134]A(20,50),S,F,B(20,50),C(20,50),D(20,50)
510 [153]" (null)TART OF ARRAYSFOR"[163]18)[194](47)[170]256[172][194](48)
512 [153]" VALND OF ARRAYSFOR"[163]18)[194](49)[170]256[172][194](50)[171]1
516 S[178]TI:A[178]3:F[178]TI:[153]" ATNDD NEW VARIABLEFOR"[163]19)F[171]S
518 S[178]TI:B[178]3:F[178]TI:[153]" ATNDD ANOTHERFOR"[163]19)F[171]S
520 [151]214,12:[153]:[153]"STOP #1 - STR$EFINING VARIABLES AFTER DEFINING
522 PRINT"      4000 ARRAY VARIABLES"
524 FORT=1TO2000:NEXT:CLR
526 DIMRQ%(308),M%(11),F$(11),G$(11),P%(11),PP%(13),Y%(11),U%(11),HS%(11,4)
528 DIM NA$(11,4),MH%(3)
530 PRINT"[129]"
532 PRINTTAB(25)PEEK(47)+256*PEEK(48)
534 PRINT:PRINTTAB(25)PEEK(49)+256*PEEK(50)-1
536 S=TI:A=3:F=TI:PRINT:PRINTTAB(27)F-S
538 S=TI:B=3:F=TI:PRINT:PRINTTAB(27)F-S
540 POKE214,15:PRINT:PRINT"[144] #2 - [196]EFINING VARIABLES AFTER DEFINING"
542 PRINT"      1202 [201][206][212][197][199][197][210] ARRAY VARIABLES"
544 FORT=1TO2000:NEXT:CLR
546 DIMRQ(308),M%(11),F$(11),G$(11),P%(11),PP%(13),Y%(11),U%(11),HS%(11,4)
548 DIM NA$(11,4),MH%(3)
550 PRINT"[129]"
552 PRINTTAB(32)PEEK(47)+256*PEEK(48)
554 PRINT:PRINTTAB(32)PEEK(49)+256*PEEK(50)-1
556 S=TI:A=3:F=TI:PRINT:PRINTTAB(34)F-S
558 S=TI:B=3:F=TI:PRINT:PRINTTAB(34)F-S
560 POKE214,18:PRINT:PRINT"[144] #3 - [196]EFINING VARIABLES AFTER DEFINING"
562 PRINT"      1202 [210][197][193][204] ARRAY VARIABLES"
580 GOSUB12:GOTO430
596 :
597 REM =====READ EXPLANATION=====
598 :
600 PRINT"[147]"
604 F$="EX1":GOSUB134:GOSUB12:F$="EX2":PRINT"[147]":GOSUB134:GOSUB12:GOTO430
997 :
998 REM ====SCRATCH AND SAVE====
999 :
10000 D=PEEK(186):N$="B.SPEED BASIC":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END
40000 FORI=0TO21:POKE828+I,8+I:NEXT
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:END
40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END
50097 :
50098 REM==RECONNECT AND LOAD READER===
50099 :
60000 GOTO40000:REMR0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60010 [139] ER[179][177]63 [167] [153]"LOAD":[128]
60020 A$[178]"HELLO CONNECT":Q$[178][199](34)
60030 [153]"LOADLOAD"Q$A$Q$",8"
60040 [153]"RUN":[151]631,13:             [151]632,13:[151]198,2:[128]
60100 [129]I[178]828[164]969:[135]A:[151]I,A:[130]:[142]
60102 [131] 173,183,003,162,184,160,003
60104 [131] 032,189,255,169,001,162,008
60106 [131] 160,000,032,186,255,032,192
60108 [131] 255,162,001,032,198,255,032
60110 [131] 207,255,032,207,255,032,207
60112 [131] 255,141,059,003,032,183,255
60114 [131] 041,064,208,068,173,059,003
60116 [131] 201,128,176,236,173,059,003
60118 [131] 201,064,176,033,173,059,003
60120 [131] 201,031,144,034,173,059,003
60122 [131] 201,031,240,035,173,059,003
60124 [131] 032,210,255,162,020,160,000
60126 [131] 136,208,253,202,208,248,076
60128 [131] 093,003,173,059,003,105,127
60130 [131] 076,137,003,173,059,003,105
60132 [131] 064,076,137,003,169,013,076
60134 [131] 137,003,169,001,032,195,255
60136 [131] 032,204,255,096,007,066,076
60138 [131] 085,082,066,044,080,048,048
60140 [131] 048,048,048,048,048,048,048
60142 [131] 048,048